home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / TEXTATTR.TSL < prev    next >
Encoding:
Text File  |  1995-08-09  |  2.5 KB  |  126 lines
  1. % -----------------------------------------------------------------------------
  2. % Color demonstration script                           *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : TEXTATTR.TSL
  7. %  Company          : None
  8. %  Programmer       : Dave Wapstra
  9. %  Module created   : 07 Aug 1995
  10. %  Latest revision  : 07 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Demonstrates screen functions
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. Include keyboard.inc
  17.  
  18. Cursor 0
  19.  
  20. Window 58,1,79,17,3,1,11,3,30," Select Color "
  21.  
  22. Set StartY = 5
  23. Set StartX = 3
  24. Set EndY = 12
  25. Set EndX = 18
  26.  
  27. For Y,StartY,EndY,1
  28.   For X,StartX,EndX,1
  29.     SetAttr (Y-StartY)*16+X-StartX
  30.     GotoXY x,y
  31.     Print Chr(254)
  32.   Next
  33. Next
  34.  
  35. %
  36. % Setup screen
  37. %
  38.  
  39. Set X = StartX+7
  40. Set Y = StartY
  41.  
  42. WriteAStr 1,2,(Y-StartY)*16+X-StartX,"    Sample color    "
  43. WriteAStr 10,EndY+2,Attr,(Y-StartY)*16+(X-StartX)
  44. SetAttr 7
  45. GotoXY X,StartY-1
  46. Print Chr(25)
  47. GotoXY X,EndY+1
  48. Print Chr(24)
  49. GotoXY StartX-1,StartY
  50. Print Chr(26)
  51. GotoXY EndX+1,StartY
  52. Print Chr(27)
  53.  
  54. SetAttr (Y-StartY)*16+X-StartX
  55. GotoXY X,Y
  56. Print Chr(15)
  57.  
  58. Set Key = 0
  59. Repeat
  60.   If Keypressed = 1
  61.     Set Key = GetKey
  62.     If Key = KeyUp
  63.       If Y > StartY
  64.         Set Y = Y - 1
  65.       EndIf
  66.      EndIf
  67.     If Key = KeyDown
  68.       If Y < EndY
  69.         Set Y = Y + 1
  70.       EndIf
  71.     EndIf
  72.     If Key = KeyLeft
  73.       If X > StartX
  74.         Set X = X - 1
  75.       EndIf
  76.     EndIf
  77.     If Key = KeyRight
  78.       If X < EndX
  79.         Set X = X + 1
  80.       EndIf
  81.     EndIf
  82.  
  83.     Set SaveX = WhereX
  84.     Set SaveY = WhereY
  85.  
  86.     GotoXY WhereX-1,WhereY
  87.     Print Chr(254)
  88.  
  89.     SetAttr 7
  90.     GotoXY StartX-1,WhereY
  91.     Print " "
  92.     GotoXY EndX+1,WhereY
  93.     Print " "
  94.  
  95.     GotoXY SaveX-1,StartY-1
  96.     Print " "
  97.     GotoXY SaveX-1,EndY+1
  98.     Print " "
  99.  
  100.     GotoXY X,StartY-1
  101.     Print Chr(25)
  102.     GotoXY X,EndY+1
  103.     Print Chr(24)
  104.  
  105.     GotoXY StartX-1,Y
  106.     Print Chr(26)
  107.     GotoXY EndX+1,Y
  108.     Print Chr(27)
  109.  
  110.     SetAttr (Y-StartY)*16+(X-StartX)
  111.     GotoXY x,y
  112.     Print Chr(15)
  113.     WriteAStr 1,2,Attr,"    Sample color    "
  114.     Set SaveAttr = Attr
  115.     Set Data=(Y-StartY)*16+(X-StartX)
  116.     WriteAStr 3,EndY+2,7,Binary(Data,8)+","+ByteToHex(Data)+"h,"+BlankBefore(Data,3)
  117.     SetAttr SaveAttr
  118.  
  119.   EndIf
  120. Until Key = 27
  121.  
  122. RemoveWindow
  123.  
  124. Cursor 1
  125.  
  126.